home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / util / cdity / availmem2.lha / AvailMem2 / src / AvailMem2_gui.s < prev    next >
Text File  |  1997-07-01  |  22KB  |  979 lines
  1. *
  2. *  Source machine generated by GadToolsBox V2.0b
  3. *  which is (c) Copyright 1991-1993 Jaba Development
  4. *
  5. *  GUI Designed by : Jesper Svennevid
  6. *
  7.  
  8.     include 'exec/types.i'
  9.     include 'intuition/intuition.i'
  10.     include 'intuition/classes.i'
  11.     include 'intuition/classusr.i'
  12.     include 'intuition/imageclass.i'
  13.     include 'intuition/gadgetclass.i'
  14.     include 'libraries/gadtools.i'
  15.     include 'graphics/displayinfo.i'
  16.     include 'graphics/gfxbase.i'
  17.  
  18.     XREF    _GadToolsBase
  19.     XREF    _IntuitionBase
  20.     XREF    _GfxBase
  21.     XREF    _SysBase
  22.  
  23. OpenScreenTagList    EQU    -612
  24. OpenWindowTagList    EQU    -606
  25. CloseScreen          EQU    -66
  26. CloseWindow          EQU    -72
  27. PrintIText           EQU    -216
  28. LockPubScreen        EQU    -510
  29. UnlockPubScreen      EQU    -516
  30. SetMenuStrip         EQU    -264
  31. ClearMenuStrip       EQU    -54
  32. GetVisualInfoA       EQU    -126
  33. FreeVisualInfo       EQU    -132
  34. CreateContext        EQU    -114
  35. CreateGadgetA        EQU    -30
  36. GT_RefreshWindow     EQU    -84
  37. FreeGadgets          EQU    -36
  38. CreateMenusA         EQU    -48
  39. LayoutMenusA         EQU    -66
  40. FreeMenus            EQU    -54
  41. OpenDiskFont         EQU    -30
  42. CloseFont            EQU    -78
  43. DrawBevelBoxA        EQU    -120
  44. FreeClass            EQU    -714
  45. NewObjectA           EQU    -636
  46. DisposeObject        EQU    -642
  47. TextLength           EQU    -54
  48. CopyMem              EQU    -624
  49. FindTagItem          EQU    -30
  50. IntuiTextLength      EQU    -330
  51. Forbid               EQU    -132
  52. Permit               EQU    -138
  53.  
  54. GD_Percentage                          EQU    0
  55. GD_FlushButtons                        EQU    1
  56. GD_Seperative_Lines                    EQU    2
  57. GD_FastMemory                          EQU    3
  58. GD_ChipMemory                          EQU    4
  59. GD_PublicMemory                        EQU    5
  60. GD_LargestMemBlock                     EQU    6
  61. GD_RemainingMemBlock                   EQU    7
  62. GD_ScreenName                          EQU    8
  63. GD_WindowTitle                         EQU    9
  64. GD_Ok                                  EQU    10
  65. GD_Cancel                              EQU    11
  66. GD_RefreshRate                         EQU    12
  67. GD_MinimizedBorders                    EQU    13
  68. GD_RemoveBorders                       EQU    14
  69. GD_CPUUsage                            EQU    15
  70. GD_AlwaysOnTop                         EQU    16
  71. GD_GoBackdrop                          EQU    17
  72.  
  73. Settings_CNT    EQU    18
  74.  
  75.     XDEF    Scr
  76.     XDEF    VisualInfo
  77.     XDEF    PubScreenName
  78.     XDEF    MemoryDisplayWnd
  79.     XDEF    SettingsWnd
  80.     XDEF    ResizeWnd
  81.     XDEF    SettingsGList
  82.     XDEF    MemoryDisplayMenus
  83.     XDEF    SettingsGadgets
  84.     XDEF    MemoryDisplayLeft
  85.     XDEF    MemoryDisplayTop
  86.     XDEF    MemoryDisplayWidth
  87.     XDEF    MemoryDisplayHeight
  88.     XDEF    SettingsLeft
  89.     XDEF    SettingsTop
  90.     XDEF    SettingsWidth
  91.     XDEF    SettingsHeight
  92.     XDEF    ResizeLeft
  93.     XDEF    ResizeTop
  94.     XDEF    ResizeWidth
  95.     XDEF    ResizeHeight
  96.  
  97. Scr:
  98.     DC.L    0
  99. VisualInfo:
  100.     DC.L    0
  101. PubScreenName:
  102.     DC.L    0
  103. MemoryDisplayWnd:
  104.     DC.L    0
  105. SettingsWnd:
  106.     DC.L    0
  107. ResizeWnd:
  108.     DC.L    0
  109. SettingsGList:
  110.     DC.L    0
  111. MemoryDisplayMenus:
  112.     DC.L    0
  113. MTags0:
  114.     DC.L    GTMN_FrontPen,0,GTMN_NewLookMenus, 1,TAG_DONE
  115. MTags1:
  116.     DC.L    GTMN_FrontPen,0,GTMN_NewLookMenus, 1,TAG_DONE
  117. SettingsGadgets:
  118.     DCB.L    18,0
  119. BufNewGad:
  120.     DC.W    0,0,0,0
  121.     DC.L    0,0
  122.     DC.W    0
  123.     DC.L    0,0,0
  124. TD:
  125.     DC.L    TAG_DONE
  126. MemoryDisplayLeft:
  127.     DC.W    439
  128. MemoryDisplayTop:
  129.     DC.W    11
  130. MemoryDisplayWidth:
  131.     DC.W    201
  132. MemoryDisplayHeight:
  133.     DC.W    27
  134. SettingsLeft:
  135.     DC.W    0
  136. SettingsTop:
  137.     DC.W    11
  138. SettingsWidth:
  139.     DC.W    404
  140. SettingsHeight:
  141.     DC.W    176
  142. ResizeLeft:
  143.     DC.W    10
  144. ResizeTop:
  145.     DC.W    15
  146. ResizeWidth:
  147.     DC.W    280
  148. ResizeHeight:
  149.     DC.W    92
  150.  
  151. MemoryDisplayGTypes:
  152.  
  153. SettingsGTypes:
  154.     DC.W    CHECKBOX_KIND
  155.     DC.W    CHECKBOX_KIND
  156.     DC.W    CHECKBOX_KIND
  157.     DC.W    CHECKBOX_KIND
  158.     DC.W    CHECKBOX_KIND
  159.     DC.W    CHECKBOX_KIND
  160.     DC.W    PALETTE_KIND
  161.     DC.W    PALETTE_KIND
  162.     DC.W    STRING_KIND
  163.     DC.W    STRING_KIND
  164.     DC.W    BUTTON_KIND
  165.     DC.W    BUTTON_KIND
  166.     DC.W    CYCLE_KIND
  167.     DC.W    CHECKBOX_KIND
  168.     DC.W    CHECKBOX_KIND
  169.     DC.W    CHECKBOX_KIND
  170.     DC.W    CHECKBOX_KIND
  171.     DC.W    CHECKBOX_KIND
  172.  
  173. ResizeGTypes:
  174.  
  175. MemoryDisplayNGads:
  176.  
  177. SettingsNGads:
  178.     DC.W    14,11,26,11
  179.     DC.L    PercentageText,0
  180.     DC.W    GD_Percentage
  181.     DC.L    PLACETEXT_RIGHT,0,0
  182.     DC.W    14,-1,26,11
  183.     DC.L    FlushButtonsText,0
  184.     DC.W    GD_FlushButtons
  185.     DC.L    PLACETEXT_RIGHT,0,0
  186.     DC.W    14,23,26,11
  187.     DC.L    Seperative_LinesText,0
  188.     DC.W    GD_Seperative_Lines
  189.     DC.L    PLACETEXT_RIGHT,0,0
  190.     DC.W    14,106,26,11
  191.     DC.L    FastMemoryText,0
  192.     DC.W    GD_FastMemory
  193.     DC.L    PLACETEXT_RIGHT,0,0
  194.     DC.W    14,94,26,11
  195.     DC.L    ChipMemoryText,0
  196.     DC.W    GD_ChipMemory
  197.     DC.L    PLACETEXT_RIGHT,0,0
  198.     DC.W    14,118,26,11
  199.     DC.L    PublicMemoryText,0
  200.     DC.W    GD_PublicMemory
  201.     DC.L    PLACETEXT_RIGHT,0,0
  202.     DC.W    207,87,169,20
  203.     DC.L    LargestMemBlockText,0
  204.     DC.W    GD_LargestMemBlock
  205.     DC.L    PLACETEXT_ABOVE!NG_HIGHLABEL,0,0
  206.     DC.W    205,121,169,20
  207.     DC.L    RemainingMemBlockText,0
  208.     DC.W    GD_RemainingMemBlock
  209.     DC.L    PLACETEXT_ABOVE!NG_HIGHLABEL,0,0
  210.     DC.W    206,1,169,15
  211.     DC.L    ScreenNameText,0
  212.     DC.W    GD_ScreenName
  213.     DC.L    PLACETEXT_ABOVE!NG_HIGHLABEL,0,0
  214.     DC.W    205,57,169,16
  215.     DC.L    WindowTitleText,0
  216.     DC.W    GD_WindowTitle
  217.     DC.L    PLACETEXT_ABOVE!NG_HIGHLABEL,0,0
  218.     DC.W    3,143,92,14
  219.     DC.L    OkText,0
  220.     DC.W    GD_Ok
  221.     DC.L    PLACETEXT_IN,0,0
  222.     DC.W    293,143,92,14
  223.     DC.L    CancelText,0
  224.     DC.W    GD_Cancel
  225.     DC.L    PLACETEXT_IN,0,0
  226.     DC.W    207,28,169,15
  227.     DC.L    RefreshRateText,0
  228.     DC.W    GD_RefreshRate
  229.     DC.L    PLACETEXT_ABOVE!NG_HIGHLABEL,0,0
  230.     DC.W    14,35,26,11
  231.     DC.L    MinimizedBordersText,0
  232.     DC.W    GD_MinimizedBorders
  233.     DC.L    PLACETEXT_RIGHT,0,0
  234.     DC.W    14,47,26,11
  235.     DC.L    RemoveBordersText,0
  236.     DC.W    GD_RemoveBorders
  237.     DC.L    PLACETEXT_RIGHT,0,0
  238.     DC.W    14,130,26,11
  239.     DC.L    CPUUsageText,0
  240.     DC.W    GD_CPUUsage
  241.     DC.L    PLACETEXT_RIGHT,0,0
  242.     DC.W    14,59,26,11
  243.     DC.L    AlwaysOnTopText,0
  244.     DC.W    GD_AlwaysOnTop
  245.     DC.L    PLACETEXT_RIGHT,0,0
  246.     DC.W    14,71,26,11
  247.     DC.L    GoBackdropText,0
  248.     DC.W    GD_GoBackdrop
  249.     DC.L    PLACETEXT_RIGHT,0,0
  250.  
  251. ResizeNGads:
  252.  
  253. MemoryDisplayGTags:
  254.  
  255.  
  256. SettingsGTags:
  257.     DC.L    TAG_DONE
  258.     DC.L    TAG_DONE
  259.     DC.L    TAG_DONE
  260.     DC.L    TAG_DONE
  261.     DC.L    TAG_DONE
  262.     DC.L    TAG_DONE
  263.     DC.L    GTPA_Depth,3
  264.     DC.L    GTPA_IndicatorWidth,50
  265.     DC.L    GTPA_Color,3
  266.     DC.L    GTPA_ColorOffset,0
  267.     DC.L    TAG_DONE
  268.     DC.L    GTPA_Depth,3
  269.     DC.L    GTPA_IndicatorWidth,50
  270.     DC.L    GTPA_Color,2
  271.     DC.L    GTPA_ColorOffset,0
  272.     DC.L    TAG_DONE
  273.     DC.L    GTST_MaxChars,256
  274.     DC.L    TAG_DONE
  275.     DC.L    GTST_MaxChars,256
  276.     DC.L    TAG_DONE
  277.     DC.L    TAG_DONE
  278.     DC.L    TAG_DONE
  279.     DC.L    GTCY_Labels,RefreshRateLabels
  280.     DC.L    GTCY_Active,2
  281.     DC.L    TAG_DONE
  282.     DC.L    TAG_DONE
  283.     DC.L    TAG_DONE
  284.     DC.L    TAG_DONE
  285.     DC.L    TAG_DONE
  286.     DC.L    TAG_DONE
  287.  
  288.  
  289. ResizeGTags:
  290.  
  291.  
  292. PercentageText:
  293.     DC.B    'Percentage',0
  294.  
  295. FlushButtonsText:
  296.     DC.B    'FlushButtons',0
  297.  
  298. Seperative_LinesText:
  299.     DC.B    'Seperative Lines',0
  300.  
  301. FastMemoryText:
  302.     DC.B    'Fast Memory',0
  303.  
  304. ChipMemoryText:
  305.     DC.B    'Chip Memory',0
  306.  
  307. PublicMemoryText:
  308.     DC.B    'Public Memory',0
  309.  
  310. LargestMemBlockText:
  311.     DC.B    'Largest Memory Block',0
  312.  
  313. RemainingMemBlockText:
  314.     DC.B    'Remaining Memory Block',0
  315.  
  316. ScreenNameText:
  317.     DC.B    'Screen Name',0
  318.  
  319. WindowTitleText:
  320.     DC.B    'Window Title',0
  321.  
  322. OkText:
  323.     DC.B    'Ok',0
  324.  
  325. CancelText:
  326.     DC.B    'Cancel',0
  327.  
  328. RefreshRateText:
  329.     DC.B    'Refresh Rate',0
  330.  
  331. MinimizedBordersText:
  332.     DC.B    'Minimized Borders',0
  333.  
  334. RemoveBordersText:
  335.     DC.B    'Remove Borders',0
  336.  
  337. CPUUsageText:
  338.     DC.B    'CPU Usage',0
  339.  
  340. AlwaysOnTopText:
  341.     DC.B    'Always On Top',0
  342.  
  343. GoBackdropText:
  344.     DC.B    'Go Backdrop',0
  345.  
  346.     CNOP    0,2
  347.  
  348.     XDEF    RefreshRateLabels
  349.  
  350. RefreshRateLabels:
  351.     DC.L    RefreshRateLab0
  352.     DC.L    RefreshRateLab1
  353.     DC.L    RefreshRateLab2
  354.     DC.L    RefreshRateLab3
  355.     DC.L    RefreshRateLab4
  356.     DC.L    0
  357.  
  358. RefreshRateLab0:    DC.B    'Every VBL',0
  359. RefreshRateLab1:    DC.B    'Every 2:nd VBL',0
  360. RefreshRateLab2:    DC.B    'Every 3:rd VBL',0
  361. RefreshRateLab3:    DC.B    'Every 4:th VBL',0
  362. RefreshRateLab4:    DC.B    'Every 5:th VBL',0
  363.  
  364.     CNOP    0,2
  365.  
  366.     XDEF    MemoryDisplayWindowTags
  367.  
  368. MemoryDisplayWindowTags:
  369. MemoryDisplayL:
  370.     DC.L    WA_Left,0
  371. MemoryDisplayT:
  372.     DC.L    WA_Top,0
  373. MemoryDisplayW:
  374.     DC.L    WA_Width,0
  375. MemoryDisplayH:
  376.     DC.L    WA_Height,0
  377.     DC.L    WA_IDCMP,IDCMP_GADGETUP!IDCMP_MENUPICK!IDCMP_CLOSEWINDOW!IDCMP_CHANGEWINDOW!IDCMP_REFRESHWINDOW
  378.     DC.L    WA_Flags,WFLG_DRAGBAR!WFLG_DEPTHGADGET!WFLG_CLOSEGADGET!WFLG_SMART_REFRESH!WFLG_GIMMEZEROZERO!WFLG_ACTIVATE
  379.     DC.L    WA_Title,MemoryDisplayWTitle
  380.     DC.L    WA_ScreenTitle,STitle
  381. MemoryDisplaySC:
  382.     DC.L    WA_PubScreen,0
  383.     DC.L    WA_AutoAdjust,1
  384.     DC.L    WA_NewLookMenus,1
  385.     DC.L    WA_PubScreenFallBack,1
  386.     DC.L    TAG_DONE
  387.  
  388. MemoryDisplayWTitle:
  389.     DC.B    'Available Memory',0
  390.     CNOP    0,2
  391.  
  392. STitle:
  393.     DC.B    'AvailMem v2.0 Copyright © 1996-1997 Jesper Svennevid',0
  394.     CNOP    0,2
  395.  
  396.     XDEF    SettingsWindowTags
  397.  
  398. SettingsWindowTags:
  399. SettingsL:
  400.     DC.L    WA_Left,0
  401. SettingsT:
  402.     DC.L    WA_Top,0
  403. SettingsW:
  404.     DC.L    WA_Width,0
  405. SettingsH:
  406.     DC.L    WA_Height,0
  407.     DC.L    WA_IDCMP,CHECKBOXIDCMP!PALETTEIDCMP!STRINGIDCMP!BUTTONIDCMP!CYCLEIDCMP!IDCMP_GADGETDOWN!IDCMP_CLOSEWINDOW!IDCMP_REFRESHWINDOW
  408.     DC.L    WA_Flags,WFLG_DRAGBAR!WFLG_DEPTHGADGET!WFLG_CLOSEGADGET!WFLG_SMART_REFRESH!WFLG_GIMMEZEROZERO!WFLG_ACTIVATE!WFLG_RMBTRAP
  409. SettingsWG:
  410.     DC.L    WA_Gadgets,0
  411.     DC.L    WA_Title,SettingsWTitle
  412.     DC.L    WA_ScreenTitle,STitle
  413. SettingsSC:
  414.     DC.L    WA_PubScreen,0
  415.     DC.L    WA_AutoAdjust,1
  416.     DC.L    WA_PubScreenFallBack,1
  417.     DC.L    TAG_DONE
  418.  
  419. SettingsWTitle:
  420.     DC.B    'AvailMem Settings',0
  421.     CNOP    0,2
  422.  
  423.     XDEF    ResizeWindowTags
  424.  
  425. ResizeWindowTags:
  426. ResizeL:
  427.     DC.L    WA_Left,0
  428. ResizeT:
  429.     DC.L    WA_Top,0
  430. ResizeW:
  431.     DC.L    WA_Width,0
  432. ResizeH:
  433.     DC.L    WA_Height,0
  434.     DC.L    WA_IDCMP,IDCMP_CLOSEWINDOW!IDCMP_CHANGEWINDOW!IDCMP_REFRESHWINDOW
  435.     DC.L    WA_Flags,WFLG_SIZEGADGET!WFLG_DRAGBAR!WFLG_DEPTHGADGET!WFLG_CLOSEGADGET!WFLG_SMART_REFRESH!WFLG_SIMPLE_REFRESH!WFLG_ACTIVATE!WFLG_RMBTRAP
  436.     DC.L    WA_Title,ResizeWTitle
  437.     DC.L    WA_ScreenTitle,STitle
  438. ResizeSC:
  439.     DC.L    WA_PubScreen,0
  440.     DC.L    WA_MinWidth,80
  441.     DC.L    WA_MinHeight,42
  442.     DC.L    WA_MaxWidth,640
  443.     DC.L    WA_MaxHeight,512
  444.     DC.L    WA_AutoAdjust,1
  445.     DC.L    WA_PubScreenFallBack,1
  446.     DC.L    TAG_DONE
  447.  
  448. ResizeWTitle:
  449.     DC.B    '<-- Close when done',0
  450.     CNOP    0,2
  451.  
  452.     XDEF    SettingsText0
  453.  
  454. SettingsText0:
  455.     DC.B    2,0
  456.     DC.B    RP_JAM1
  457.     DC.B    0
  458.     DC.W    10,84
  459.     DC.L    0
  460.     DC.L    SettingsIText0
  461.     DC.L    SettingsText1
  462.  
  463. SettingsText1:
  464.     DC.B    2,0
  465.     DC.B    RP_JAM1
  466.     DC.B    0
  467.     DC.W    10,-11
  468.     DC.L    0
  469.     DC.L    SettingsIText1
  470.     DC.L    0
  471.  
  472. SettingsIText0:
  473.     DC.B    'Bars Displayed',0
  474.  
  475. SettingsIText1:
  476.     DC.B    'Attributes',0
  477.  
  478.     CNOP    0,2
  479.  
  480.     XDEF    MemoryDisplayNewMenu0
  481.  
  482. MemoryDisplayNewMenu0:
  483.     DC.B    NM_TITLE,0
  484.     DC.L    MemoryDisplayMName0
  485.     DC.L    0
  486.     DC.W    0
  487.     DC.L    0,0
  488.  
  489. MemoryDisplayNewMenu1:
  490.     DC.B    NM_ITEM,0
  491.     DC.L    MemoryDisplayMName1
  492.     DC.L    MemoryDisplayMComm1
  493.     DC.W    0
  494.     DC.L    0,0
  495.  
  496. MemoryDisplayNewMenu2:
  497.     DC.B    NM_ITEM,0
  498.     DC.L    NM_BARLABEL,0
  499.     DC.W    0
  500.     DC.L    0,0
  501.  
  502. MemoryDisplayNewMenu3:
  503.     DC.B    NM_ITEM,0
  504.     DC.L    MemoryDisplayMName3
  505.     DC.L    MemoryDisplayMComm3
  506.     DC.W    0
  507.     DC.L    0,0
  508.  
  509. MemoryDisplayNewMenu4:
  510.     DC.B    NM_ITEM,0
  511.     DC.L    MemoryDisplayMName4
  512.     DC.L    MemoryDisplayMComm4
  513.     DC.W    0
  514.     DC.L    0,0
  515.  
  516. MemoryDisplayNewMenu5:
  517.     DC.B    NM_TITLE,0
  518.     DC.L    MemoryDisplayMName5
  519.     DC.L    0
  520.     DC.W    0
  521.     DC.L    0,0
  522.  
  523. MemoryDisplayNewMenu6:
  524.     DC.B    NM_ITEM,0
  525.     DC.L    MemoryDisplayMName6
  526.     DC.L    MemoryDisplayMComm6
  527.     DC.W    0
  528.     DC.L    0,0
  529.  
  530. MemoryDisplayNewMenu7:
  531.     DC.B    NM_ITEM,0
  532.     DC.L    NM_BARLABEL,0
  533.     DC.W    0
  534.     DC.L    0,0
  535.  
  536. MemoryDisplayNewMenu8:
  537.     DC.B    NM_ITEM,0
  538.     DC.L    MemoryDisplayMName8
  539.     DC.L    MemoryDisplayMComm8
  540.     DC.W    0
  541.     DC.L    0,0
  542.  
  543. MemoryDisplayNewMenu9:
  544.     DC.B    NM_ITEM,0
  545.     DC.L    NM_BARLABEL,0
  546.     DC.W    0
  547.     DC.L    0,0
  548.  
  549. MemoryDisplayNewMenu10:
  550.     DC.B    NM_ITEM,0
  551.     DC.L    MemoryDisplayMName10
  552.     DC.L    MemoryDisplayMComm10
  553.     DC.W    0
  554.     DC.L    0,0
  555.  
  556. MemoryDisplayNewMenu11:
  557.     DC.B    NM_ITEM,0
  558.     DC.L    MemoryDisplayMName11
  559.     DC.L    MemoryDisplayMComm11
  560.     DC.W    0
  561.     DC.L    0,0
  562.  
  563. MemoryDisplayNewMenu12:
  564.     DC.B    NM_ITEM,0
  565.     DC.L    MemoryDisplayMName12
  566.     DC.L    MemoryDisplayMComm12
  567.     DC.W    0
  568.     DC.L    0,0
  569.  
  570.     DC.B    NM_END,0
  571.     DC.L    0,0
  572.     DC.W    0
  573.     DC.L    0,0
  574.  
  575. MemoryDisplayMName0:
  576.     DC.B    'Project',0
  577.  
  578. MemoryDisplayMName1:
  579.     DC.B    'About...',0
  580.  
  581. MemoryDisplayMComm1:
  582.     DC.B    '?',0
  583.  
  584. MemoryDisplayMName3:
  585.     DC.B    'Hide',0
  586.  
  587. MemoryDisplayMComm3:
  588.     DC.B    'H',0
  589.  
  590. MemoryDisplayMName4:
  591.     DC.B    'Quit...',0
  592.  
  593. MemoryDisplayMComm4:
  594.     DC.B    'Q',0
  595.  
  596. MemoryDisplayMName5:
  597.     DC.B    'Settings',0
  598.  
  599. MemoryDisplayMName6:
  600.     DC.B    'Resize Window',0
  601.  
  602. MemoryDisplayMComm6:
  603.     DC.B    'R',0
  604.  
  605. MemoryDisplayMName8:
  606.     DC.B    'Modify Settings...',0
  607.  
  608. MemoryDisplayMComm8:
  609.     DC.B    'M',0
  610.  
  611. MemoryDisplayMName10:
  612.     DC.B    'Load Settings...',0
  613.  
  614. MemoryDisplayMComm10:
  615.     DC.B    'O',0
  616.  
  617. MemoryDisplayMName11:
  618.     DC.B    'Save Settings',0
  619.  
  620. MemoryDisplayMComm11:
  621.     DC.B    'W',0
  622.  
  623. MemoryDisplayMName12:
  624.     DC.B    'Reset To Defaults',0
  625.  
  626. MemoryDisplayMComm12:
  627.     DC.B    'D',0
  628.  
  629.     CNOP    0,2
  630.  
  631.     XDEF    SetupScreen
  632.  
  633. SetupScreen
  634.     movem.l d1-d3/a0-a2/a6,-(sp)
  635.     move.l  _IntuitionBase,a6
  636.     move.l  PubScreenName,a0
  637.     jsr     LockPubScreen(a6)
  638.     move.l  d0,Scr
  639.     tst.l   d0
  640.     beq     SError
  641.     move.l  Scr,a0
  642.     move.l  _GadToolsBase,a6
  643.     lea.l   TD,a1
  644.     jsr     GetVisualInfoA(a6)
  645.     move.l  d0,VisualInfo
  646.     tst.l   d0
  647.     beq     VError
  648.     moveq   #0,d0
  649. SDone:
  650.     movem.l (sp)+,d1-d3/a0-a2/a6
  651.     rts
  652. SError:
  653.     moveq   #1,d0
  654.     bra.s   SDone
  655. VError:
  656.     moveq   #2,d0
  657.     bra.s   SDone
  658.  
  659.     XDEF    CloseDownScreen
  660.  
  661. CloseDownScreen:
  662.     movem.l d0-d1/a0-a1/a6,-(sp)
  663.     move.l  _GadToolsBase,a6
  664.     move.l  VisualInfo,a0
  665.     cmpa.l  #0,a0
  666.     beq.s   NoVis
  667.     jsr     FreeVisualInfo(a6)
  668.     move.l  #0,VisualInfo
  669. NoVis:
  670.     move.l  _IntuitionBase,a6
  671.     suba.l  a0,a0
  672.     move.l  Scr,a1
  673.     cmpa.l  #0,a1
  674.     beq.s   NoScr
  675.     jsr     UnlockPubScreen(a6)
  676.     move.l  #0,Scr
  677. NoScr:
  678.     movem.l (sp)+,d0-d1/a0-a1/a6
  679.     rts
  680.  
  681.     XDEF    OpenMemoryDisplayWindow
  682.  
  683. OpenMemoryDisplayWindow:
  684.     movem.l d1-d4/a0-a4/a6,-(sp)
  685.     move.l  Scr,a0
  686.     moveq   #0,d3
  687.     moveq   #0,d2
  688.     move.b  sc_WBorLeft(a0),d2
  689.     move.l  sc_Font(a0),a1
  690.     move.w  ta_YSize(a1),d3
  691.     addq.w  #1,d3
  692.     move.b  sc_WBorTop(a0),d0
  693.     ext.w   d0
  694.     add.w   d0,d3
  695.     move.l  _GadToolsBase,a6
  696.     lea.l   MemoryDisplayNewMenu0,a0
  697.     lea.l   MTags0,a1
  698.     jsr     CreateMenusA(a6)
  699.     move.l  d0,MemoryDisplayMenus
  700.     tst.l   d0
  701.     beq     MemoryDisplayMError
  702.     move.l  d0,a0
  703.     move.l  VisualInfo,a1
  704.     lea.l   MTags1,a2
  705.     jsr     LayoutMenusA(a6)
  706.     move.l  Scr,MemoryDisplaySC+4
  707.     moveq   #0,d0
  708.     move.w  MemoryDisplayLeft,d0
  709.     move.l  d0,MemoryDisplayL+4
  710.     move.w  MemoryDisplayTop,d0
  711.     move.l  d0,MemoryDisplayT+4
  712.     move.w  MemoryDisplayWidth,d0
  713.     move.l  d0,MemoryDisplayW+4
  714.     move.w  MemoryDisplayHeight,d0
  715.     add.w   d3,d0
  716.     move.l  d0,MemoryDisplayH+4
  717.     move.l  _IntuitionBase,a6
  718.     suba.l  a0,a0
  719.     lea.l   MemoryDisplayWindowTags,a1
  720.     jsr     OpenWindowTagList(a6)
  721.     move.l  d0,MemoryDisplayWnd
  722.     tst.l   d0
  723.     beq     MemoryDisplayWError
  724.     move.l   MemoryDisplayWnd,a0
  725.     move.l   MemoryDisplayMenus,a1
  726.     jsr      SetMenuStrip(a6)
  727.     move.l  _GadToolsBase,a6
  728.     move.l  MemoryDisplayWnd,a0
  729.     suba.l  a1,a1
  730.     jsr     GT_RefreshWindow(a6)
  731.     moveq   #0,d0
  732. MemoryDisplayDone:
  733.     movem.l (sp)+,d1-d4/a0-a4/a6
  734.     rts
  735. MemoryDisplayMError:
  736.     moveq   #3,d0
  737.     bra.s   MemoryDisplayDone
  738. MemoryDisplayWError:
  739.     moveq   #4,d0
  740.     bra.s   MemoryDisplayDone
  741.  
  742.     XDEF    CloseMemoryDisplayWindow
  743.  
  744. CloseMemoryDisplayWindow:
  745.     movem.l d0-d1/a0-a2/a6,-(sp)
  746.     move.l   _IntuitionBase,a6
  747.     move.l   MemoryDisplayMenus,a0
  748.     cmpa.l   #0,a0
  749.     beq      MemoryDisplayNMenu
  750.     move.l   MemoryDisplayWnd,a0
  751.     jsr      ClearMenuStrip(a6)
  752.     move.l   _GadToolsBase,a6
  753.     move.l   MemoryDisplayMenus,a0
  754.     jsr      FreeMenus(a6)
  755.     move.l   #0,MemoryDisplayMenus
  756. MemoryDisplayNMenu:
  757.     move.l  _IntuitionBase,a6
  758.     move.l  MemoryDisplayWnd,a0
  759.     cmpa.l  #0,a0
  760.     beq     MemoryDisplayNWnd
  761.     jsr     CloseWindow(a6)
  762.     move.l  #0,MemoryDisplayWnd
  763. MemoryDisplayNWnd:
  764.     movem.l (sp)+,d0-d1/a0-a2/a6
  765.     rts
  766.  
  767.     XDEF    SettingsRender
  768.  
  769. SettingsRender:
  770.     movem.l d0-d5/a0-a2/a6,-(sp)
  771.     move.l  SettingsWnd,a0
  772.     move.b  wd_BorderLeft(a0),d4
  773.     ext.w   d4
  774.     move.b  wd_BorderTop(a0),d5
  775.     ext.w   d5
  776.     move.l  _IntuitionBase,a6
  777.     move.l  SettingsWnd,a0
  778.     move.l  wd_RPort(a0),a0
  779.     lea.l   SettingsText0,a1
  780.     move.l  d4,d0
  781.     move.l  d5,d1
  782.     jsr     PrintIText(a6)
  783.     movem.l (sp)+,d0-d5/a0-a2/a6
  784.     rts
  785.  
  786.     XDEF    OpenSettingsWindow
  787.  
  788. OpenSettingsWindow:
  789.     movem.l d1-d4/a0-a4/a6,-(sp)
  790.     move.l  Scr,a0
  791.     moveq   #0,d3
  792.     moveq   #0,d2
  793.     move.b  sc_WBorLeft(a0),d2
  794.     move.l  sc_Font(a0),a1
  795.     move.w  ta_YSize(a1),d3
  796.     addq.w  #1,d3
  797.     move.b  sc_WBorTop(a0),d0
  798.     ext.w   d0
  799.     add.w   d0,d3
  800.     move.l  _GadToolsBase,a6
  801.     lea.l   SettingsGList,a0
  802.     jsr     CreateContext(a6)
  803.     move.l  d0,a3
  804.     tst.l   d0
  805.     beq     SettingsCError
  806.     movem.w d2-d3,-(sp)
  807.     moveq   #0,d3
  808.     lea.l   SettingsGTags,a4
  809. SettingsGL:
  810.     move.l  _SysBase,a6
  811.     lea.l   SettingsNGads,a0
  812.     move.l  d3,d0
  813.     mulu    #gng_SIZEOF,d0
  814.     add.l   d0,a0
  815.     lea.l   BufNewGad,a1
  816.     moveq   #gng_SIZEOF,d0
  817.     jsr     CopyMem(a6)
  818.     lea.l   BufNewGad,a0
  819.     move.l  VisualInfo,gng_VisualInfo(a0)
  820.     move.l  #0,gng_TextAttr(a0)
  821.     move.w  gng_LeftEdge(a0),d0
  822.     add.w   (sp),d0
  823.     move.w  d0,gng_LeftEdge(a0)
  824.     move.w  gng_TopEdge(a0),d0
  825.     add.w   2(sp),d0
  826.     move.w  d0,gng_TopEdge(a0)
  827.     move.l  _GadToolsBase,a6
  828.     lea.l   SettingsGTypes,a0
  829.     moveq   #0,d0
  830.     move.l  d3,d1
  831.     asl.l   #1,d1
  832.     add.l   d1,a0
  833.     move.w  (a0),d0
  834.     move.l  a3,a0
  835.     lea.l   BufNewGad,a1
  836.     move.l  a4,a2
  837.     jsr     CreateGadgetA(a6)
  838.     tst.l   d0
  839.     bne.s    SettingsCOK
  840.     movem.w (sp)+,d2-d3
  841.     bra     SettingsGError
  842. SettingsCOK:
  843.     move.l  d0,a3
  844.     move.l  d3,d0
  845.     asl.l   #2,d0
  846.     lea.l   SettingsGadgets,a0
  847.     add.l   d0,a0
  848.     move.l  a3,(a0)
  849. SettingsTL:
  850.     tst.l   (a4)
  851.     beq.s   SettingsDN
  852.     addq.w  #8,a4
  853.     bra.s   SettingsTL
  854. SettingsDN:
  855.     addq.w  #4,a4
  856.     addq.w  #1,d3
  857.     cmp.w   #Settings_CNT,d3
  858.     bmi     SettingsGL
  859.     movem.w (sp)+,d2-d3
  860.     move.l  SettingsGList,SettingsWG+4
  861.     move.l  Scr,SettingsSC+4
  862.     moveq   #0,d0
  863.     move.w  SettingsLeft,d0
  864.     move.l  d0,SettingsL+4
  865.     move.w  SettingsTop,d0
  866.     move.l  d0,SettingsT+4
  867.     move.w  SettingsWidth,d0
  868.     move.l  d0,SettingsW+4
  869.     move.w  SettingsHeight,d0
  870.     add.w   d3,d0
  871.     move.l  d0,SettingsH+4
  872.     move.l  _IntuitionBase,a6
  873.     suba.l  a0,a0
  874.     lea.l   SettingsWindowTags,a1
  875.     jsr     OpenWindowTagList(a6)
  876.     move.l  d0,SettingsWnd
  877.     tst.l   d0
  878.     beq     SettingsWError
  879.     move.l  _GadToolsBase,a6
  880.     move.l  SettingsWnd,a0
  881.     suba.l  a1,a1
  882.     jsr     GT_RefreshWindow(a6)
  883.     jsr     SettingsRender
  884.     moveq   #0,d0
  885. SettingsDone:
  886.     movem.l (sp)+,d1-d4/a0-a4/a6
  887.     rts
  888. SettingsCError:
  889.     moveq   #1,d0
  890.     bra.s   SettingsDone
  891. SettingsGError:
  892.     moveq   #2,d0
  893.     bra.s   SettingsDone
  894. SettingsWError:
  895.     moveq   #4,d0
  896.     bra.s   SettingsDone
  897.  
  898.     XDEF    CloseSettingsWindow
  899.  
  900. CloseSettingsWindow:
  901.     movem.l d0-d1/a0-a2/a6,-(sp)
  902.     move.l  _IntuitionBase,a6
  903.     move.l  SettingsWnd,a0
  904.     cmpa.l  #0,a0
  905.     beq     SettingsNWnd
  906.     jsr     CloseWindow(a6)
  907.     move.l  #0,SettingsWnd
  908. SettingsNWnd:
  909.     move.l  _GadToolsBase,a6
  910.     move.l  SettingsGList,a0
  911.     cmpa.l  #0,a0
  912.     beq     SettingsNGad
  913.     jsr     FreeGadgets(a6)
  914.     move.l  #0,SettingsGList
  915. SettingsNGad:
  916.     movem.l (sp)+,d0-d1/a0-a2/a6
  917.     rts
  918.  
  919.     XDEF    OpenResizeWindow
  920.  
  921. OpenResizeWindow:
  922.     movem.l d1-d4/a0-a4/a6,-(sp)
  923.     move.l  Scr,a0
  924.     moveq   #0,d3
  925.     moveq   #0,d2
  926.     move.b  sc_WBorLeft(a0),d2
  927.     move.l  sc_Font(a0),a1
  928.     move.w  ta_YSize(a1),d3
  929.     addq.w  #1,d3
  930.     move.b  sc_WBorTop(a0),d0
  931.     ext.w   d0
  932.     add.w   d0,d3
  933.     move.l  Scr,ResizeSC+4
  934.     moveq   #0,d0
  935.     move.w  ResizeLeft,d0
  936.     move.l  d0,ResizeL+4
  937.     move.w  ResizeTop,d0
  938.     move.l  d0,ResizeT+4
  939.     move.w  ResizeWidth,d0
  940.     move.l  d0,ResizeW+4
  941.     move.w  ResizeHeight,d0
  942.     add.w   d3,d0
  943.     move.l  d0,ResizeH+4
  944.     move.l  _IntuitionBase,a6
  945.     suba.l  a0,a0
  946.     lea.l   ResizeWindowTags,a1
  947.     jsr     OpenWindowTagList(a6)
  948.     move.l  d0,ResizeWnd
  949.     tst.l   d0
  950.     beq     ResizeWError
  951.     move.l  _GadToolsBase,a6
  952.     move.l  ResizeWnd,a0
  953.     suba.l  a1,a1
  954.     jsr     GT_RefreshWindow(a6)
  955.     moveq   #0,d0
  956. ResizeDone:
  957.     movem.l (sp)+,d1-d4/a0-a4/a6
  958.     rts
  959. ResizeWError:
  960.     moveq   #4,d0
  961.     bra.s   ResizeDone
  962.  
  963.     XDEF    CloseResizeWindow
  964.  
  965. CloseResizeWindow:
  966.     movem.l d0-d1/a0-a2/a6,-(sp)
  967.     move.l  _IntuitionBase,a6
  968.     move.l  ResizeWnd,a0
  969.     cmpa.l  #0,a0
  970.     beq     ResizeNWnd
  971.     jsr     CloseWindow(a6)
  972.     move.l  #0,ResizeWnd
  973. ResizeNWnd:
  974.     movem.l (sp)+,d0-d1/a0-a2/a6
  975.     rts
  976.  
  977.  
  978.     end
  979.